* Subcircuit HL7801E
.subckt hl7801e 2 3 11 10 
*this subckt accounts for threshold temperature coefficient
*use .temp statement for the appropriate junction temperature
d1 1 3 dlaser
.model dlaser d(rs=1.5 eg=2.8 xti=3 n=1 is=1e-30)       
h1 7 0 v1 24
d2 8 9 diode3
.model diode3 d(eg=.1)
r1 9 0 100
g1 10 11 9 0 .0012
d3 11 10 diode
.model diode d(cjo=5pf) 
*spice 2g syntax
r3 7 8 1 tc=.0085
*isspice3 syntax
*r3 7 8 1 rmod
*.model rmod r tc1=.0085
i2 8 7 .9
c1 9 0 50p
v1 2 1 
.ends
